home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Joystick Magazine 1998 December
/
cd joystick no99 decembre 1998.iso
/
Data
/
INFONIE
/
dscript
/
slip.scp
< prev
next >
Wrap
Text File
|
1995-08-24
|
932b
|
49 lines
;
; This is a script file that demonstrates how
; to establish a slip connection with a host.
;
; A script file must have a 'main' procedure.
; All script execution starts with this 'main'
; procedure.
;
; Main entry point to script
;
proc main
; Delay for 2 seconds first to make sure the
; host doesn't get confused when we send the
; two carriage-returns.
delay 2
transmit "^M^M"
; Wait for the login prompt before entering
; the user ID
waitfor "serid:"
transmit $USERID
transmit "^M"
; Enter the password
waitfor "assword?"
transmit $PASSWORD
transmit "^M"
waitfor "InternetLR/E>"
transmit "slip"
transmit "^M"
; An alternative to the following two lines is
;
; set ipaddr getip 2
;
; since we know that my address is the second one given.
waitfor "Your address is "
set ipaddr getip
endproc